home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000036.bina < prev    next >
Encoding:
Text File  |  1999-11-11  |  2.3 KB  |  113 lines
  1. (defrule
  2.     (difficulty >= easy)
  3.     (game-time > 300)
  4.     (soldier-count < five-percent-pop)
  5.     (unit-type-count villager <= 4)
  6. =>
  7.     (set-goal 1 19)
  8.     (disable-self)
  9. )
  10.  
  11. (defrule
  12.     (difficulty == moderate)
  13.     (game-time > 300)
  14.     (building-type-count wonder < 1)
  15.     (soldier-count < five-percent-pop)
  16.     (unit-type-count villager <= 2)
  17.     (not (can-train villager) )
  18. =>
  19.     (set-goal 1 19)
  20.     (disable-self)
  21. )
  22.  
  23. (defrule
  24.     (difficulty <= hard)
  25.     (game-time > 300)
  26.     (building-type-count wonder < 1)
  27.     (soldier-count <= 3)
  28.     (unit-type-count cannon-galleon-line == 0)
  29.     (unit-type-count villager == 0)
  30.     (not (can-train villager) )
  31. =>
  32.     (set-goal 1 19)
  33.     (disable-self)
  34. )
  35.  
  36. (defrule
  37.     (goal 1 19)
  38.     (stance-toward any-human ally)
  39.     (difficulty <= moderate)
  40. =>
  41.     (release-escrow wood)
  42.     (release-escrow food)
  43.     (release-escrow gold)
  44.     (release-escrow stone)
  45.     (tribute-to-player this-any-human wood 10000)
  46.     (tribute-to-player this-any-human food 10000)
  47.     (tribute-to-player this-any-human gold 10000)
  48.     (tribute-to-player this-any-human stone 10000)
  49.     (disable-self)
  50. )
  51.  
  52. (defrule
  53.     (goal 1 19)
  54.     (players-population any-ally > 10)
  55.     (difficulty <= moderate)
  56. =>
  57.     (release-escrow wood)
  58.     (release-escrow food)
  59.     (release-escrow gold)
  60.     (release-escrow stone)
  61.     (tribute-to-player this-any-ally wood 10000)
  62.     (tribute-to-player this-any-ally food 10000)
  63.     (tribute-to-player this-any-ally gold 10000)
  64.     (tribute-to-player this-any-ally stone 10000)
  65.     (disable-self)
  66. )
  67.  
  68. ;*****************************
  69. ;delete all units
  70. (defrule
  71.     (goal 1 19)
  72.     (difficulty >= moderate)
  73. =>
  74.     (delete-building watch-tower)
  75.     (delete-building guard-tower)
  76.     (delete-building keep)
  77.     (delete-building bombard-tower)
  78.     (delete-building castle)
  79. )
  80.  
  81. (defrule
  82.     (goal 1 19)
  83.     (difficulty >= moderate)
  84.     (building-type-count watch-tower == 0)
  85.     (building-type-count guard-tower == 0)
  86.     (building-type-count keep == 0)
  87.     (building-type-count bombard-tower == 0)
  88.     (building-type-count castle == 0)
  89. =>
  90.     (set-goal 1 9)
  91.     (disable-self)
  92. )
  93.  
  94. (defrule
  95.     (goal 1 19)
  96.     (difficulty <= hard)
  97. =>
  98.     (set-goal 1 9)
  99.     (disable-self)
  100. )
  101.  
  102. ;*****************************
  103. ;** All random taunts moved to aiexpert.txt 
  104. (defrule
  105.     (goal 1 9)
  106. =>
  107.     (chat-to-all-using-range 22300  22)
  108.     (chat-to-all-using-id 22322)
  109.         ;"No wonder thou wert victorious! I shalt abdicate."
  110.     (resign)
  111.     (disable-self)
  112. )
  113.